home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / comm / mail / Hurl.lha / Hurl! / configyam4hurl.rexx next >
OS/2 REXX Batch file  |  1998-11-25  |  1KB  |  46 lines
  1. /* ConfigYAM4Hurl.rexx
  2.    $VER: 1.1 Copyright ©1998 by Ralph Torchia
  3.  
  4.    This will config YAM:.config for Hurl v2
  5.  
  6.  ** DO NOT EDIT or EXECUTE OUTSIDE INSTALLER SCRIPT!!! **
  7. */
  8.  
  9. PARSE ARG automode
  10.  
  11. done=false
  12. yamconfig = 'YAM:.config'
  13.  
  14. config0 = 'Rexx20.Script    = YAM:Rexx/Hurl'
  15. config1 = 'Rexx20.IsAmigaDOS= Y'
  16. config2 = 'Rexx20.UseConsole= N'
  17. config3 = 'Rexx20.WaitTerm  = N'
  18.  
  19. IF automode = 'auto' THEN config0 = 'Rexx20.Script    = YAM:Rexx/Hurl AUTO'
  20.  
  21. IF ~(Open('config',yamconfig,'R')) THEN EXIT
  22. CALL Open('output',"T:temp.yamconfig",'W')
  23. DO WHILE ~EOF('config')
  24.    line$ = Readln('config')
  25.    IF ((line$ = "Rexx19.WaitTerm  = Y") | (line$ = "Rexx19.WaitTerm  = N")) & (done=false) THEN DO
  26.       CALL Writeln('output',line$)
  27.       CALL Writeln('output',config0)
  28.       CALL Writeln('output',config1)
  29.       CALL Writeln('output',config2)
  30.       CALL Writeln('output',config3)
  31.       DO i = 0 to 3
  32.          line$ = Readln('config')
  33.       END
  34.    END
  35.    ELSE
  36.       CALL Writeln('output',line$)
  37. END
  38. CALL Close('output')
  39. CALL Close('config')
  40. ADDRESS COMMAND "Copy T:temp.yamconfig YAM:.config"
  41.  
  42. cleanup:
  43.   ADDRESS COMMAND "C:Delete T:temp.yamconfig"
  44. EXIT
  45.  
  46.